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PASCAL 

OTROS LENGUAJES 


UM sistemas de 
numeración 


OMO ya sabemos, el 
ordenador trabaja in- 
ternamente con da- 
tos binarios (cadenas 
de unos y ceros), por 
medio de los cuales 
representa números, 
2 nombres, etcétera. 
Existen varios formatos internos de repre- 
sentación de los distintos tipos de datos, 
aunque en la mayoría de los casos el 
programador trabaja en un lenguaje de 
programación lejano a la máquina y, por 
ello, no necesita considerar el formato in- 
terno de los datos que maneja. 

El hombre trabaja generalmente en sis- 
tema decimal, y el ordenador en sistema 
binario; en ambos la representación de 
los números se realiza mediante cadenas 
de símbolos, dependiendo el valor de 
cada símbolo de la posición que ocupe 
dentro de la cadena. 

Un número decimal ordinario, de los 
que todos usamos, consta de un conjun- 
to de dígitos decimales y, posiblemente 
de una coma decimal. La forma general 
y su interpretación se muestran en la figu- 
ra 1. 


Número 
binario 


Número 


Expresión decimal 


AAA 
XK XA XX XXMMXXX 
coscopbhahn»a 
HFit++++++cs+ 
COD» » 20020 
XX XXXMXXXx 
«PbbbaAnNNDNND 
+++ +++++ 
A EN 


— 
«20005 OA 40NsOo 
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REPRESENTACION INTERNA DE LOS DATOS 


La elección de 10 como base de expo- 
nenciación se hace a causa de que uti- 
lizamos números decimales o en base 10. 
Cuando tratamos con ordenadores es 
mucho mejor utilizar otras bases distintas 
de 10. Las bases más importantes son 2, 
8, 16. Los sistemas de numeración corres- 
pondientes a estas bases se llaman bina- 
rio, octal y hexadecimal. 


Sistema binario 


El conjunto de símbolos utilizados en 
este sistema de numeración se limita a 
dos (0,1); en consecuencia, la única for- 
ma de representar un número binario es 
mediante una cadena de dígitos bina- 
rios, también llamados bits: ceros y unos. 

Este sistema de numeración, ideado 
por Leibniz en el siglo XVII, constituye el 
alfabeto interno de los ordenadores 
electrónicos. 

En este sistema, al tener sólo dos sím- 
bolos, un valor 2 habrá que representar- 
lo como 10, ya que el símbolo 2 no exis- 
te en binario. En este sistema, un símbolo 
en la segunda posición tendrá un valor 
dos veces superior (base =2) al de los 
símbolos de la primera posición; un sim- 
bolo en la tercera posición (lo que cono- 
cemos en decimal como centena), un 
valor dos veces superior al de aquéllos 
en segunda posición, etc. 


Sistema octal 


En este sistema sólo son válidos los síim- 
bolos: 


0,1,2,3,4,5,6, ? 


Por tanto, el peso de cada uno de los 
dígitos de un número será 8”, siendo n la 
posición que ocupa si contamos de de- 
recha a izquierda. Veremos esto más 
adelante en la conversión entre siste- 
mas. 


Decimal 


Binario | Octal | Hexadecimal 


pS =] 


0 

4 
2 2 
3 3 
4 3 
5 5 
6 6 
7 7 
8 
9 
A 
B 
c 
D 
E 
41414 F 

40000 

10004 44 
10010 12 
40014 43 
10400 14 
11440 AE 
40 101000 28 
50 110040 32 
60 111100 3C 
70 1000110 46 
80 1010000 50 
90 10110410 5A 
100 1100100 64 
200 110041000 ca 
300 100101100 12Cc 
110010000 190 
1111410400 4F4 
1001041000 258 
10101114100 2BC 
1100100000 320 
1110000100 384 
11114104000 3E8 
101110401104 BAD 


y sus equivalentes a los 


ñ 7 Á Números decimales 
La sistemas binario, octal y hexadecimal. 


Sistema hexadecimal 


Este sistema está basado en un conjun- 
to de 16 elementos; 


0,1,2,34,5,6,7,8,9,A,B,C,D,E,F. 
Como sólo tenemos diez dígitos numé- 


ricos diferentes se utilizan las letras, cuyo 
valor corresponde: 


A=10, B=11, C=12, D=13, E=14, F=15 


Para utilizar valores mayores se combi- 
nan estos símbolos básicos, de forma que 
para representar el número 16 pondría- 
mos 10, etc. 


«= Conversión de una base 

mu 

| a otra 

1. Conversión de cualquier sistema a 
base decimal 


Basta sólo con aplicar la siguiente fór- 
mula: 


Nao = 0,'B, + d,.'B,., +....+ d,'2 + d,'B da 


en donde d,, d,,...., d,, son las cifras del 
número inicial, B es el número de símbo- 
los del sistema de nuineración (base del 
sistema) y NN, es la representación del 
número en sistema decimal. 


2. Conversión de un número decimal a 
otro sistema 


Mucho más fácil, basta con dividir su- 
cesivamente el número en base decimal 
por la nueva base; el cociente y los res- 
tos obtenidos (en orden contrario al que 
han aparecido) coinciden con el núme- 
ro expresado en el nuevo sistema. 


vi Conversión del número binario 
101110110111 a decimal. 


4+2x 1499 dá <—Resultado 
14+2x749 = 1499 

Mw 
4+2x374=749 


*— 
0+2x 187 = 374 
— 
4+2x 93 = 187 
1+2x 46793 , 
0+2x23=46 
MN 
14+2x 11 = 23 
AAA 
14+42x5=441 


442x2=5 


/ 


al 


> Y) +42 1= 2 


4+2x0=41 -<— Comienza aquí 
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1011101010 0=149210 


A | Conversión del número 1492 a binario 
== por divisiones sucesivas. 


3. Conversión binario-octal y binario- 
hexadecimal 


— Para convertir un número expresa- 
do en base dos a octal, se van agrupan- 
do los dígitos en grupos de tres. Cada 
uno de los grupos corresponde a un sím- 
bolo en base ocho. 

— Para cambiar de base dos a base 
dieciséis, agrupamos los dígitos binarios 
en grupos de cuatro y hacemos lo mismo 
que en el caso anterior. 


CONVERSION 
BINARIO-OCTAL 


CONVERSION 
BINARIO- a 


| Hexadecimal | 


MONO >0a Momo 


mn Tipos de datos 


Un dato es cualquier elemento de infor- 
mación que va a ser procesado por un 
ordenador. Cuando un programa va a 
trabajar con un gran número de datos, se 
facilitará mucho el trabajo si se organiza 
de forma apropiada su almacenamiento. 
Vamos a ver a continuación algunas for- 
mas de estructurar los datos: 


4. Datos simples 


Son aquéllos que no pueden descom- 
ponerse en partes significativas más sim- 
ples. Los datos pueden o no alterarse du- 
rante la ejecución de programas. Si no se 
alteran reciben el nombre de CONSTAN- 
TES y, en caso contrario, de VARIABLES. 
Cada uno de estos datos tiene reserva- 
do en memoria el espacio suficiente 
para registrar su valor. 

Dentro de este grupo de datos pode- 
mos hacer una división respecto al tipo 
de dato que estemos utilizando: 


Datos numéricos 


Para operar con un número se debe 
conocer de él: 

— Su signo. - 

— El valor de cada una de sus cifras, 
en su orden. 

— El lugar de la coma decimal en la 
cadena de cifras. 

Por este motivo, el ordenador deberá 
representar todo ello en memoria al al- 
macenar un dato numérico. La forma de 
hacerlo va de acuerdo al sistema de re- 
presentación utilizado. 


a) Coma fija. 

El nombre viene de la forma de repre- 
sentar la posición de la coma decimal. El 
lugar viene predeterminado por el siste- 
ma. Existen tres formas de almacena- 
miento en coma fija: 

— Binario puro. 

— Decimal empaquetado. 

—" Decimal desempaquetado. 

b) En coma flotante, para una base 
dada, los números se representan por 
medio de una mantisa y un exponente. 
De esta forma, el ordenador debe alma- 
cenar: 

— El valor de la mantisa y su signo. 

— El valor del exponente y su signo. 

— El valor de la base que va implícito 
en el sistema elegido. 


La coma flotante puede representarse 
en dos modos: 


— Simple precisión. 
— Doble precisión. 


Datos alfabéticos y alfanuméricos 


Este tipo de datos se almacena siem- 
pre en formato desempaquetado, es de- 


cir, un carácter por byte, ya que en este 
caso sí son necesarios más de cuatro bits 
para representar cada carácter. La con- 
figuración de ceros y unos que represen- 
ta a cada carácter dependerá del códi- 
goutilizado por el ordenador. En equipos 
Fria bits los más utilizados son EBCDIC y 


CODIGO ALFANUMERICO ASCII 


00 J00A0N-.O--* 


YA... 


2. Punteros 


Son datos cuyo valor indica la direc- 
ción de memoria donde se encuentra 
otro dato. Por tanto, es una forma indirec- 
ta de acceder a la información. 

Pueden ser útiles, por ejemplo, para en- 
cadenar informaciones en un cierto orden. 


A — all 


2747, Los punteros son datos que no contienen 
| | más información que la de la dirección de 

memoria donde se encuentra otro dato. En 
este caso los punteros son campos de un registro. 


3. Tablas 


La organización de los datos en tablas 


implica su almacenamiento en posicio- 
nes consecutivas de memoria, de forma 
que se puede localizar cualquier ele- 
mento mediante la programación del al- 
goritmo adecuado. 


O ARANA IE CE ANIODO IO ZE AL IOTMOOW>O 


En caso de tablas o matrices de dos di- 
mensiones, el almacenamiento debe ser 
lineal, es decir, por filas O columnas. 


NOMBRES 
| | 
a Ejemplo de matriz de dos dimensiones. 
A Cada registro se almacena en una posi- 


za ción consecutiva, dentro del área reserva- 
da a la tabla en memoria. 


OS ficheros de texto 
están constituidos 
por caracteres legi- 
bles agrupados en lí- 
neas. Las líneas son 
de longitud variable y 
pueden llegar a tener 

== hasta 253 caracteres, 
pero lo más frecuente es que no pasen 
de 40 u 80, que son los que caben en el 
ancho de la pantalla. El fin de cada línea 
está señalado internamente por dos ca- 
racteres de control: «retorno de carro» y 
«nueva línea». Estos dos caracteres tie- 
nen los códigos ASCII 13 y 10, respectiva- 
mente. 

Los programas fuente de la mayoría de 
los lenguajes de programación son, des- 
de el punto de vista físico, ficheros de 
texto estándares. Los del ensamblador se 
diferencian del estándar únicamente en 
que la longitud máxima en la línea está 
restringida a 132 caracteres. 


ID Sentencias 


Las unidades lógicas del lenguaje en- 
samblador del 8088 (MASM) son las sen- 
tencias. Las sentencias deben escribirse 
en líneas independientes y pueden estar 


nombre operación 
E Ab > 


PROG2 
SEG_DATO 
MENSAJE 


VECES 
SEG_DATO 


operando 


Ry > 


"Programa PROGZ,* 
13,10,36 
15 
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constituidas por cuatro tipos de compo- 
nentes que deben ir separados por al 
menos un espacio en blanco. Los com- 
ponentes de las sentencias son: 


1. Nombre (opcional). 

2. Operación. 

3. Conjunto de operandos. 
4. Comentario (opcional). 


Excepto para los textos que constitu- 
yen mensajes o datos, las letras mayús- 
culas y minúsculas son equivalentes a to- 
dos los efectos. 


' Ejemplo 


Vamos a usar el siguiente programa 
fuente (que llamaremos PROG2) para co- 
mentar los componentes de los diferen- 
tes tipos de sentencias. 

Cuando sometamos dicho programa a 
los procesos de ensamblaje y montaje 
(explicado en el tema anterior), veremos 
que en la ejecución del mismo se gene- 
ra un mensaje repetidamente sobre la 
pantalla. 

Los cuatro componentes de las senten- 
cias se han organizado por columnas en 
el listado para hacer más fácil su identi- 
ficación. 


comentario 


¡Línea Ol 
¡Línea 02 
¡Línea 03 
¡Línea 04 
¿Línea 05 
¡Línea 06 
¡Línea 07 


== 1 


SEG_CODE  SEGMENT 


O 
nombre operación 


[Nombre 


El primer componente de la sentencia 
es casi siempre opcional y consiste en un 
nombre o etiqueta que sirve para identi- 
ficar instrucciones aisladas o grupos de 
instrucciones que deban ser referencia- 
das desde otros puntos del programa. 


Los nombres deben cumplir las siguien- 
tes reglas: 


1. Aunque se pueden especificar 
nombres de cualquier longitud, sólo los 
primeros 31 caracteres son reconocidos 
por el ensamblador. 

2. Son válidos los siguientes caracteres: 


— Las letras del alfabeto inglés (don- 
de se excluye la ñ). 

— Los números del 0 al 9. 

— los caracteres especiales de in- 
terrogación (?), punto (.), E (3), subra- 
yado (._) y dólar ($). 


3. Los números no pueden constituir el 
primer carácter de un nombre. 

4. El punto (.) sólo puede usarse como 
primer carácter. 

En el programa ejemplo PROG2, el 
nombre SEG__DATO que aparece en las lí- 
neas 2 y 6 especifica el nombre de un 
segmento de datos. El nombre VECES 


FAR 3 
C3:5EG_CODE,DS:SEG_DATO ¿Línea 10 


PROC1 PROC 
ASSUME 
PUSH Ds 
MOV AX, 0000 
PUSH AX 
Y) AX, DATOS 
MOV DS, AX 
MOV CX, VECES 
BUCLE: LEA DX, MENSAJE 
MOV AH, 9 
INT 21H 
LooP BUCLE 
RET 
PROC1 ENDP 
SEG_CODE ENDS 


Lo > loo > 


¡Línea 
Línea 09 


¡Línea 11 
¡Linea 12 
Línea 13 
¡Linea 14 
¿Línea 15 
¡Línea 16 
¡Línea 17 
¡Línea 19 
¡Línea 19 
¡Línea 20 
¡Línea 21 
¡Línea 22 
¿Línea 23 
¡Línea 24 
¡Línea 25 
¡Línea 26 
¡Línea 27 
¿Línea 29 ES 
¿Linea 29 
¿Línea 


comentario 


corresponde a una variable que se defi- 
ne en la línea 5 y se usa en la 19. Y BUCLE 
es una etiqueta que se le ha asignado a 
la instrucción ejecutable de la línea 21 
para poderla referenciar desde la línea 
24. 


a Operación 


El segundo componente es el más im- 
portante, ya que es el que realmente de- 
fine la esencia de la sentencia. Hay dos 
tipos de operaciones totalmente diferen- 
tes que podemos llamar: 


— Operaciones propiamente dichas. 
— Seudo-operaciones. 


Las operaciones propiamente dichas 
son códigos nemotécnicos de las accio- 
nes que puede realizar el microprocesa- 
dor y que el ensamblador se encargará 
de traducir a código máquina. A las sen- 
tencias que contienen operaciones de 
este tipo las podemos llamar «sentencias 
ejecutables». 

En el programa anterior son sentencias 
ejecutables las líneas que van de la 12 a 
la 26, excepto las número 15, 18, 20 y 25, 
que por legibilidad se han dejado en 
blanco. En ellas aparecen las operacio- 
nes PUSH, MOV, LEA, INT, LOOP y RET. 
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Se llaman seudo-operaciones a los có- 
digos de operación que no generan có- 
digo ejecutable. Los cuales, a su vez, 
pueden ser de dos tipos: 


— Seudo-operaciones de definición 
de datos. 
— Seudo-operaciones directivas. 


Las primeras, como su nombre indica, 
«sirven para definir datos, es decir, asig- 
nar nombres a trozos de memoria y hacer 
que el ensamblador genere los códigos 
(no ejecutables) con los valores iniciales 
de las mismas. Las seudo-operaciones DB 
y DW que aparecen en las líneas 3, 4 y 5 
del programa PROG2 son de este tipo. 

Las segundas sirven para definir al en- 
samblador determinadas circunstancias 
que influirán en la traducción de otras 
operaciones, pero no generan directa- 
mente ningún código. En el ejemplo an- 
terior, son seudo-operaciones directivas 
las siguientes: NAME, SEGMENT, ENDS, 
PROC, ASSUME, ENDP y END. 


qm Conjunto de operandos 


El tercer componente es una informa- 
ción complementaria de la operación o 
de la seudo-operación y está constituida 
por uno o más elementos. Cuando la sen- 
tencia contiene un código de operación 
estos elementos reciben el nombre de 
operandos. Con ellos se especifican los 
elementos involucrados que pueden ser: 
registros, referencias a la memoria, cons- 
tantes o expresiones. 

Cada operación tiene un número de 
operandos propio. Algunas no requieren 
ninguno, como es el caso de la opera- 
ción RET en la línea 26. Otras requieren un 
operando, como ocurre con las opera- 
ciones PUSH, INT y LOOP. Finalmente, otras 
operaciones como MOV y LEA requieren 
dos operandos separados por una coma. 


2 Comentario 


El cuarto y último componente de las 
sentencias es siempre opcional y consiste 
en una cadena de caracteres iniciada 
por el carácter punto y coma. Los co- 
mentarios sirven para documentar el fun- 
cionamiento de los programas y cum- 
plen una misión muy importante, ya que 
los códigos de operación de sólo 36 4 le- 


tras, el profuso uso de los registros y la 


propia versatilidad del lenguaje hacen 
que los programas sin comentarios sean 
dificilmente comprensibles. 

En nuestro ejemplo hemos usado el 
campo de comentario para numerar to- 
das las líneas y poder referirnos a cada 
una de ellas sin confusión. 


O Estructura de los programas 


El lenguaje ensamblador está diseña- 
do para que se puedan escribir progra- 
mas de muy diversa complejidad. Desde 
programas elementales de sólo 30 lí- 
neas, como el que acabamos de comen- 
tar, a aplicaciones muy complejas cons- 
tituidas por decenas de miles de instruc- 
ciones. 

Para facilitar la escritura y puesta a 
punto de los programas, el ensamblador 
permite dividir el código fuente en tantos 
módulos como se desee. Como se vio en 
el tema anterior, dichos módulos se en- 
samblan por separado generando pro- 
gramas objetos que posteriormente se 
reúnen como el LINK para producir el pro- 
grama ejecutable. 

También se ha dicho anteriormente 
que el microprocesador 8088 maneja 
cuatro áreas de memoria, cada una de 
las cuales se direcciona con dos regis- 
tros que reciben el nombre de «registro 
de segmento» y «registro de desplaza- 
miento». 

Recordemos que con un determinado 
valor del «registro de segmento» sólo se 
puede abarcar 64 Kbytes de memoria y 
que si se quiere acceder fuera de esa 
área hay que modificar forzosamente el 
«registro de segmento», 

Pues bien, debido a estu característica 
del 8088 es por lo que la memoria mane- 
jada por los programas debe estar parti- 
cionada en bloques no mayores de 64 
Kbytes, que en la terminología del en- 
samblador se denominan segmentos. 

Esto significa que en todas las senten- 
cias de los módulos fuente que generan 
código tienen que estar encuadradas en 
segmentos. 

La división de un módulo en segmentos 
se puede elegir libremente con la única 
restricción de no pasar de los 64 Kbytes 
en cada uno de ellos. Pero hay que te- 
ner en cuenta que el programa debe in- 
cluir instrucciones específicas para di- 


reccionar cada uno de los segmentos. Lo 
más usual en programas sencillos es for- 
mar un segmento con los datos y otro con 
las sentencias ejecutables, como en el 
ejemplo anterior. En dicho ejemplo las 
instrucciones específicas para direccio- 
nar el segmento de datos están en las lí- 
neas 16 y 17. 


-] Las sentencias SEGMENT 
Dl y ENDS 


Los segmentos se definen con dos sen- 
tencias, la sentencia SEGMENT, que defi- 
ne el comienzo, y la sentencia ENDS, que 
indica el final. En medio de ellas se codi- 
fican todas las sentencias que constitu- 
yen el segmento. 

El formato de estas sentencias es el si- 
guiente: 


nombre-seg SEGMENT Cal ineami entol [tipol ['cliase*3 
' 


nambee-seg ENDS 


En la figura anterior y en otras sucesivas 
que irán saliendo, vamos a utilizar la si- 
guiente nomenclatura: lo escrito con mi- 
núsculas son nombres que deben ser ele- 
gidos por el usuario; lo escrito con ma- 
yúsculas son nombres que deben ser co- 
dificados como se indica; y lo encerrado 
entre corchetes son elementos opciona- 
les que pueden ser omitidos. 

nombre-seg. Es el nombre que se le 
quiere asignar al segmento y que debe 
aparecer, tanto en la sentencia SEGMENT 
que indica el comienzo del segmento, 
como en la sentencia ENDS que indica el 
final. La elección del nombre debe ha- 
cerse de acuerdo con las reglas anterior- 
mente expuestas. 

alineamiento. Es un parámetro opcio- 
nal con el que se puede imponer ciertas 
condiciones a la dirección del primer 
byte del segmento. Efectivamente, espe- 
cificando las palabras WORD, PARA o 
PAGE se consigue que la dirección del 
comienzo del segmento esté alineada a 
frontera de palabra, párrafo o página de 
memoria, respectivamente. Es decir, que 
la dirección inicial del segmento sea 
múltiplo de 2, 16 ó 256. También se pue- 
de especificar BYTE, que es lo mismo que 


decir que no se impone ninguna condi- 
ción a la dirección de comienzo de seg- 
mento. Cuado se omite este parámetro 
se realiza el alineamiento a frontera de 
párrafo, igual que si se hubiera especifi- 
cado PARA. 


tipo. Este parámetro es opcional, y sir- 
ve para controlar la posición relativa en 
que se colocarán los distintos segmentos 
cuando se reúnan para formar el módulo 
ejecutable. Es por tanto una información 
que el ensamblador pasará al LINK, que 
es el programa que construye el módulo 
ejecutable. Se pueden especificar las 
palabras PUBLIC, COMMON, STACK, ME- 
MORY y AT. En relación con este paráme- 
tro, rigen las siguientes reglas: 


— Alos segmentos tipo PUBLIC del mis- 
mo nombre se les asignan zonas de me- 
morias contiguas. 


— A los segmentos tipo COMMON del 
mismo nombre se les asigna una única 
zona de memoria sobre la que todos 
ellos quedan superpuestos. 


— El segmento para el que se especi- 
fique tipo STACK será el que se usará 
como pila de ejecución del 8088. El fun- 
cionamiento de la pila se explicará con 
detalle más adelante. 


— El segmento para el que se especi- 
fique tipo MEMORY será el último segmen- 
to que se situe en memoria. 


— El segmento para el que se especi- 
fique AT seguido de una dirección se 
considerará como una plantilla que ser- 
virá para referenciar la zona de memoria 
especificada. 


“clase”. Este parámetro, que también es 
opcional, consiste en un nombre expre- 
sado entre comillas que define la clase 
a la que pertenecerá el segmento. Esta 
es una facilidad adicional para especifi- 
car el orden en que se desea que los dis- 
tintos segmentos formen el módulo eje- 
cutable, ya que el LINK situará juntos a to- 
dos los segmentos de la misma clase. 

A continuación se dan los esquemas 
de la división en segmentos de tres pro- 
gramas, que podrían servir de ejemplo 
tanto para formar módulos ejecutables 
independientes como para formar un 
módulo ejecutable único. 


DATOS1 SEGMENT PAGE 


DATOS1 ENDS 


SEGMENT STACK 


CODIGO1 
5 o 


END 


ENDS 


SEGMENT PUBLIC 


<---—programa C--—--> 


CODIGO2 ENDS 
$ nn En 


PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTION + DE JUEGOS 


150 IF INKEY$="s" THEN 4 


Programas: 


quinielas PRINT AT*21,0;" 
L siguiente programa Go TO 180 
nos permitirá la reali- 160 IF INKEY$="n" THEN 
zación de quinielas o o 
múltiples. El listado sá AS 
del programa 1 es 170 GO TO 140 
= unicamente para el 180 PRINT AT 17,0;"Pulse 1 
| [ SPECTRUM. El progra- a opcion adecuada";AT 19,2;"1.- 
AAA ma 2 es la versión ee CC 
para IBM del mismo. 183 IF INKEY$="1" TBEN PRIN 
TARTA TO 
MATO a 
REM Mina two AMIA 
FLASH 1: PRINT AT 10,8; ". 
“PARE LA CINTA": INPUT AT 0,0;("Numero de partido 
PAUSE 500: FLASH 0: CLS 2");t: BEEP ,4,20: INPUT AT 0,0 
DEF FN K(w,0)=(100*w)/c ¡("Nueva opcion ? AE ARO 
BEEP .08,20: BEEP .1,0: GO TO 132 
INPUT "Numero de partid 186 IF INKEY$="2" THEN PRIN 
desarrollar >>>";nap TABA TIOS 
DIM m(nap,2): DIM ps$ AT ON a 
(nap, 16): DIM M$(nap, 3): AAA 
DIM t(nap, 2): DIM C$(nap ": INPUT 
250) AT 0,0;("Numero de partido 7"); 
40 LET tri=0: LET dob=0 t: BEEP .4,10: INPUT AT 0,0;("Nu 
50 REM Relleno de matrices eva opcion ? ");M$(t): GO TO 
80 FOR u=1 TO nap STEP 1 132 
90 BEEP .08,20: BEEP .1,0 187 GO TO 180 
100 INPUT AT 0,0;("Partido "; 188 REM Formacion de t(nap, 2 
u);TAB 20;("Apuesta");AT 1,0;("= ) 
");TAB 20;(” 189 FOR i=1 TO nap 
2,0;5p$(u);(” >");TAB 20;M$( 190 LET contsig=0 
u) ó 191 FOR j=1 TO 3 
110 REM Escritura en pantalla 192 IF M$(i,j)<>" " THEN 
LVL REM 2E8:8:E:888:888E:E88EB ERE LET contsig=contsig+1 
Be 193 NEXT j 
113 GO SUB 1000 194 FOR ¿=1 TO 3 
116 PRINT AT u+2,0;u;".-";p 196 IF M$(i,j)<>" " THEN L 
$(u): FOR v=1 TO 3: ET lug=j: LET j=3 
BEEP ,04,30: PRINT AT 197 NEXT j 
u+2,19+v;M$(u,v): NEXT y , 198 * LET t(1,1)=1luge: 
117 NEXT u LET t(i,2)=contsig 
118 GO SUB 1000 199 NEXT i 
132 CLS - 210 FOR 1=1 TO nap 
137 GO SUB 3000 220 LET m(1,2)=t(1,1) 
140 PRINT AT 21,0; 230 NEXT 1 
"Desea alguna correccion 250 REM HittttiDesarrollo+Ht44R44 


? (s/m)" $ 
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REM ....subt?”* 
REM SUD ot 5000.. 


LET k=1 
GO SUB 6000 
LET aux=nap 
LET i=zaux 
IF m(i,2)<4 THEN 
GO SUB 5000: GO SUB 700 
GO TO 420 
LET m(1,2)=t(1i,1) 
LET izi-1 
IF i=0 THEN CLS : 
GO SUB 7500: STOP 
LET m(i,2)=m(i,2)+1 
IF m(i,2)=4 THEN GO TO 
480 
IF M$(i,m(i,2))=" " THEN 
GO TO 460 
GO TO 410 
LET m(i,2)=t(i,1): GO TO 
440 


PLOT 0,40: DRAW 252,0: DRA 
,116: DRAW -252,0: DRAW O, 


REM A TO 


FOR u=1 TO nap 

PRINT AT u+2,0;u;".-";p$ 
u): BEEP .02,-10: FOR v 
=1 TO 3: PRINT AT u+2, 
21+v;M$(u,v): NEXT y 

NEXT u 

GO SUB 1000 

RETURN 


FOR j=1 TO nap 
PRINT AT ¿+2,29;M$(3,m( 3, 
2)) 
LET CS(j,k)=M$(j,m(3,2)) 
BEEP .009,20 
NEXT j 
PRINT AT 0,23;"VALIDA ?"; 
AT 1,26;"(s/m)" 
IF INKEY$="n" THEN GO TO 
5030 
IF INKEY$="s" THEN LET 
K=K+1: GO TO 5030 
GO TO 5022 
PAUSE O 
LET m(i,2)=m(i,2)+1 
IF m(i,2)>3 THEN RETURN 
IF M$(i,m(i,2))=" " THEN 
GO TO 5030 


ASIS lalalala dolRoloK 
k QUINIELAS k 
AMOO OSO aajolojoloio iaa lalalaioK 
* POR Fco. Morales $. E 
ASS alla aloja jo lojolololok 


AMOS Soda look lok 
*x (c) Ed. Siglo Cultural *x 
* (c) 1987 k 
AMO olaaa kjolok 


5555 RETURN 

5556 REM ....sub""” 

6000 REM 

6005 LET tri=0: LET dob=0 

6010 FOR p=1 TO nap 

8020 IF t(p,2)=3 THEN LET 
tri=tri+1: GO TO 6040 

6030 IF t(p,2)=2 THEN LET 
dob=dob+1 

6040 NEXT p 

6050 LET Numcol=INT ((2"dob)x 

(3"tri)) 

6060 LET Costo=Numcol1x15 

6100 RETURN 

6101 REM ..sub.?***” 

7000 REM ....sub.porcen 

7030 PRINT AT 0,0; "COLUM. TOT. > 

> "¡INT (NUMCOL);AT 1,0;"COSTO T 

OT.>> "¡INT (COSTO); "Pts." 

7040 PRINT AT 17,0;"Columnas se 

leccionadas>> ";K-1;AT 21,0;"HAS 

TA AHORA>> ";(K-1)x*15;"Pts. "¡AT 

19,1;(FN K(K-1,Numcol));TAB 12;" 

% all4" 

7100 RETURN 

7101 


7499 


7500 

7510 FOR x=0 TO kx*2 STEP 2 

7515 LET h=h+1 

7520 FOR z=1 TO nap 

7522 IF x>=30 THEN PRINT AT 20 
,1;"Quieres mas ? (s/n)": BEEP 1 
,720: GO TO 7560 y 

7530 PRINT AT z,x;C$(2,h): BE 

EP .01,20 

7535 IF C$(2,h)=" " THEN PRIN 
T AT 20,0;"ESTO SE HA ACABADO. $$ 
SUERTE $$": GO TO 7600 

7545 GO TO 7580 

7560 IF INKEY$="s" THEN CLS : 
LET h=h-1: GO TO 7510 

7565 IF INKEY$="n" THEN CLS : 
PRINT AT 11,2;"BUENA SUERTE LES 
DESEA ESTE ZX-SPECTRUM": STOP 

7570 GO TO 7560 

7580 NEXT z 

7585 NEXT x 

7600 RETURN 

CAGLAREM Yo BUD >> 


1100 REM 

1110 DEF FNK(W,C)=(100x*W)/C 

1120 CLS 

1130 LOCATE 10,1 

1140 INPUT "Numero de partidos a desarrollar > ",NP 
1150 DIM M(NP,2):DIM P$(NP):DIM M$(NP):DIM T(NP,2):DIM C$(NP) 
1160 FOR I=1 TO NP 

1170 LET C$(1)=" pa 

1180 NEXT 1 

1190 LET LR=0 

1200 LET DO=0 

1210 REM 

1220 REM *** RELLENO DE MATRICES *x*x*x 

1230 REM 

1240 CLS 

1250 PRINT "PARTIDO APUESTA" 
1260 PRINT “======= =======" 
1270 FOR U=1 TO NP 

1280 LOCATE 3+0,1 

1290 LINE INPUT "",P$(U) 

1300 LOCATE 3+U, 36 

1310 LET SW=0 

1320 LINE INPUT ”"",M$(U) 

1330 IF LEN(M$(U))>3 THEN GOTO 1300 

1340 FOR I=1 TO LEN(M$(U)) 

1350 IF MID$(M$(U),1,1)<>"1" AND MID$(M$(U), 1,1)<>"X" AND MID$(M$(U),1,1)< 
>"2” THEN LET SW=1 : 

1360 NEXT I 

1370 IF SW=1 THEN GOTO 1300 

1380 LET M$(U)=LEFTS(M$(U)+"  ",3) 

1390 NEXT U 

1400 CLS:PRINT: PRINT:PRINT 

1410 PRINT "No. PARTIDO APUESTA" 
1420 PRINT “"=23=: ======= SS 
1430 FOR U=1 TO NP 

1440 LOCATE 6+U, 1 

1450 PRINT U 

1460 LOCATE 6+0,6 

1470 PRINT P$(U) 

1480 LOCATE 6+U, 33 

1490 PRINT M$(U) 

1500 NEXT U 

1510 LOCATE 22,1 

1520 PRINT "QUIERES MODIFICAR ALGUNO (S/N) 

1530 LET A$=INKEY$: IF A$="" THEN GOTO 1530 

1540 IF A$="S" OR A$="s" THEN 1570 

1550 IF A$="N" OR A$="n" THEN GOTO 1720 

1560 GOTO 1530 

1570 LOCATE 22,1 

1580 PRINT "1.- MODIFICAR PARTIDO 

1590 PRINT "2.- MODIFICAR APUESTA ME 

1600 LET A$=INKEYS$: IF A$="" THEN GOTO 1800 

1610 IF A$<>"1" AND A$<>"2" THEN GOTO 1600 

1620 LOCATE 22,1 

1630 PRINT SPACE$(80) 

1640 LOCATE 22,1 

1650 INPUT "DE QUE PARTIDO? o 

1660 IF U<1 OR U>NP THEN GOTO 1620 

1670 ON VAL(A$) GOTO 1680, 1700 

1680 INPUT "NOMBRE DEL PARTIDO > “,P$(U) 
, 1690 GOTO 1400 

1700 INPUT "APUESTA > ",M$(0) . 

1710 GOTO 1400 

1720 LOCATE 22,1 

1730 PRINT SPACE$(40) há 

1740 LOCATE 22,1 

1750 PRINT "ESPERA UN MOMENTO" 

1760 REM 
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1770 REM **x CALCULO *xx 
1780 REM 
1790 FOR I=1 TO NP : 
1800 LET CT=0 
1810 FOR J=1 TO 3 
1820 IF MID$(M$(1),J,1)<>" " THEN LET CT=CT+1 
1830 NEXT J 
1840 FOR J=1 TO 3 
1850 IF MID$(M$(1),J3,1)<>" " THEN LET LG=J:LFT J=3 
1860 NEXT J 
1870 LED T(1, 1)=LG 
1880 LET T(1,2)=CT 
1890 NEXT 1 
1900 FOR L=1 TO NP 
1910 LET M(L,2)=T(L, 1) 
1920 NEXT L 
1930 LOCATE 22,1 
1940 PRINT SPACE$(40) 
1950 REM 
1960 REM *x** DESARROLLO *x*x* 
1970 REM 
1980 LET K=1 
1990 GOSUB 2270 
2000 LET AX=NP 
2010 LET I=AX 
2020 IF M(1,2)<4 THEN GOSUB 2110:GOSUB 2370:GOTO 2020 
2030 LET M(1,2)=T(1,1) 
2040 LET I=I-1 
2050 IF I=0 THEN CLS:GOSUB 2470:END 
2060 LET M(1,2)=M(1,2)+1 
2070 IF M(1,2)=4 THEN GOTO 2100 
2080 IF MID$(M$(I),M(1,2),1)=" " THEN GOTO 2060 
20909 GOTO 2010 
2100 LET M(1,2)=T(1,1):GOTO 2040 
2110 REM a 
2120 FOR J=1 TO NP 
2130 LOCATE 6+J, 38 
2140 PRINT MID$(M$(J),M(J,2),1) 
2150 LET C$(J)=LEFT$(C$(J),K-1)+MIDS$(MS(J),M(J,2), 1)+MID$(C$(J),K+1) 
2160-NEXT J 
2170 LOCATE 1,30 
2180 PRINT “(VALIDA? (S/N)":BEEP 
2190 LET A$=INKEY$ 
2200 IF A$="N" OR A$="n" THEN GOTO 2230 
"2210 IF A$="S" OR A$="s" THEN LET K=K+1:GOTO 2230 
2220 GOTO 2190 
2230 LET M(1,2)=M(1,2)+1 
* 2240 IF M(1,2)>3 THEN RETURN 
2250 IF MID$(M3(1),M(1,2),1)=" " THEN GOTO 2230 
2260 - RETURN 
2270 REM 
2280 LET TI=0 
2290 LET DB=0 
2300 FOR P=1 TO NP 
2310 IF T(P,2)=3 THEN LET TI=TI+1:GOTO 2330 
2320 IF T(P,2)=2 THEN LET DB=DB+1 
2330 NEXT P 
2340 LET NM=INT((27DB)x(3”TI)) 
2350 LET CS=NMx15 
2360 RETURN 
2370 REM 
2380 LOCATE 1,1 
2390 PRINT "COLUMNAS TOTALES 
2400 LOCATE 2,1 
2410 PRINT "COSTO TOTAL 
2420 LOCATE 22,1 
2430 PRINT "COLUMNAS SELECCIONADAS = ";K-1 
2440 PRINT "HASTA AHORA ";(K-1)X15;" PTS." 


"; INT(NM) 


" 


“5 INT(CS);" PTS." 


2450 PRINT FNK(K-1,NM);"” 
2460 RETURN 

2470 CLS 

2480 LET B=0 

2490 FOR X=0 TO K*2 STEP 2 
2500 LET H=H+1 

2510 FOR Z=1 TO NP 


% A LOS 14"; 


2630 RETURN 


Las correcciones que hay que hacer 
para que el programa pueda funcionar 
en el COMMODORE, AMSTRAD y MSX son 
las siguientes: 


COMMODORE: 


1120 PRINT CHR$(147) 

1130 POKE 214,9:POKE 211,0 

1240 PRINT CHR$(147) 

1280 POKE 214,2+U:POKE 211,0 
1300 POKE 214,2+U:POKE 211,35 
1400 PRINT CHR$(147):PRINT:PRINT:PRINT 
1440 POKE 214,5+U:POKE 211,0 
1460 POKE 214,5+U:POKE 211,5 
1480 POKE 214,5+U:POKE 211,32 
1510 POKE 214,21:POKE 211,0 

1530 GET AS 

1570 POKE 214,21:POKE 211,0 

1660 GET AS 

1620 POKE 214,21:POKE 211,0 

1630 FOR |=1 TO 80:PRINT “ ”;:NEXT | 
1640 POKE 214,21:POKE 211,0 

1720 POKE 214,21:POKE 211,0 

1730 FOR |=1 TO 80:PRINT * ";:NEXT 1 
1740 POKE 214,21:POKE 211,0 

1930 POKE 214,21:POKE 211,0 

1940 FOR I=1 TO 40:PRINT * ";:NEXT 1 
2130 POKE 214,5+J:POKE 211,37 
2170 POKE 214,0:POKE 211,29 
2190 GET AS 

2380 POKE 214,0:POKE 211,0 

2400 POKE 214,21:POKE 211,0 

2470 PRINT CHR$(147) 


2520 1F X>=40 THEN LOCATE 22,1:PRINT "QUIERES MAS (S/N)":GOTO 2570 

2530 LOCATE Z+1,X+1 

2540 PRINT MID$(C$(Z),H,1) 

2550 IF MID$(C$(Z),H,1)=" " THEN LOCATE 22,1:PRINT “ESTO SE HA ACABADO":PR 


INT "SUERTE": RETURN 

2560 GOTO 2610 

2570 LET A$=INKEYS$ 

2580 IF A$="S" OR A$="s" THEN CLS:LET H=H-1:GOTO 2490 

2590 IF A$="N" OR A$="n" THEN LOCATE 22,1:PRINT "BUENA SUERTE": END 

2600 GOTO 2570 

2610 NEXT 2 ó 
2620 NEXT X e 


2520 IF X>=39 THEN POKE 214,21:POKE 
211,0:PRINT “QUIERES MAS (S/N)”:GOTO 
2570 

2530 POKE 214,Z:POKE 211,X 

2550 IF MIDS(CS(Z) ,H,1)=" ” THEN POKE 
214,21:POKE 211,0:PRINT “ESTO SEHA ACA- 
BADO”:PRINT “SUERTE":RETURN 

2570 GETAS 

2580 IF A$="S” OR A$="s” THEN PRINT 
CHR$(147):LET H=H+1:GOTO 2490 

2590 IF A$="N” OR A$="n” THEN POKE 
214,21:POKE 211,0:PRINT “BUENA SUER- 
TE”:END 


AMSTRAD Y MSX: 


Para que el programa funcione en es- 
tos ordenadores lo único que hay que 
hacer es cambiar de orden los argumen- 
tos de todas las sentencias LOCATE del 
programa. Por ejemplo, si tenemos la le 
nea 1440 


1440 LOCATE 6+U, 1 


para pasar esta línea al MSX y al AMS- 
TRAD tendremos que poner: 


1440 LOCATE 1,6+U 


Este programa nos permitirá meter el 
nombre de hasta veinticuatro equipos de 
fútbol emparejados de dos en dos. Una 
vez que éstos se encuentran en memoria, 
el programa nos pedirá que rellenemos 
la quiniela como nosotros queramos. A 
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continuación nos aparecerán en la pan- 
talla la lista de todos los equipos que he- 
mos introducido seguida de la lista de los 
resultados de los partidos. Se le pregun- 
tará al usuario si quiere realizar alguna 
modificación. En caso afirmativo, se pre- 
guntará el número de partido, si quere- 
mos cambiar el nombre o el resultado y 
la variación que queremos realizar. 


[A ¿Desea alguna corrección? (s/n). 


Si no queremos realizar ninguna modi- 
ficación o ya hemos modificado todo lo 
que queríamos, nos aparecerá una nue- 
va pantalla dentro de la cual se desarro- 
llará todo el resto del programa. En esta 
pantalla, aparte de aparecer la lista de 
los partidos y las apuestas, nos aparece- 
rán los siguientes datos: 


— Número total de columnas realiza- 
das. *. 

— Coste total de la apuesta con todas 
las columnas. 

— Posibilidades de sacar catorce re- 
sultados. 

— Número de columnas selecciona- 
das. 


-— Coste de las columnas selecciona- 
das. 


A continuación irán desfilando ante 
nuestros ojos todas las columnas posibles 
en la quiniela. Cada vez que aparezca 
una columna tendremos que pulsar si es 
válida o no. En caso negativo, el ordena- 
dor no la tendrá en cuenta, pero en caso 
positivo, la almacenará para volver a im- 
primirla más tarde. 

Una vez que se han visualizado todas 
las columnas posibles, éstas aparecerán 
por pantalla de forma independiente y 
una a una. 


ID Programa: Cálculos infinitos 


El siguiente programa que vamos a ver 
nos permitirá sumar y restar números en- 
teros de cualquier longitud. El programa 
está preparado para detectar errores. 
Por ejemplo, si en vez de un número te- 
cleamos una letra o un signo de puntua- 
ción, el ordenador nos dirá que nos he- 
mos equivocado. 


AMS lalalala lolo lojalalO aloja lalalala lalola olaaa olaa lalalala lalaloloioloK 
ES SUMA Y RESTA DE NUMEROS ENTEROS (SIN SIGNO) CON ARO 
ES PRECISION INFINITA (HASTA 255 CARACTERES DE LON- ARONA KK 
ANO GITUD POR NUMERO) JOA 
SO dll dalla lalola lolo jalo look 


HARAN ORO ROJO NOR JJOO ROO ARO ROO ROO JO ROO ORO OR OJO ROO ROO JOR A 


Ad AUTOR JUAN MANUEL GUTIERREZ LEITON ARROROROAROIONAOIORIOOK: 
ES 


110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 


167. 


168 
169 


170 


171 
172 
173 
174 
175 
176 


NES 
REM ooo dodojok (C). EDICIONES SIGLO CULTURAL, 1987 AOS Sjololojojolololojok 
REM RSS SOS falala olaa lalalala lalalala lol ddalojo loja ok 
CLS a 
INPUT "Dame el primer numero ";N$(1) 
LET R$=N$(1) 
GOSUB 164 
IF ER=1 THEN GOSUB 174 :GOTO 113 
LET Li=LEN(N$(1)) 
LET T=1 
GOSUB 316 
LET Li=L1-NC 
INPUT "Dame el segundo numero”";N$(2) 
LET R$=N$(2) 
GOSUB 164 
IF ER=1 THEN GOSUB 174 :GOTO 122 
LET L2=LEN(N$(2)) 
LET T=2 : 
GOSUB 316 
LET L2=L2-NC 
INPUT "dame el tipo de operador (+,-)";0$ 
IF LEN(O$)>1 THEN PRINT"OPERACION NO VALIDA":GOTO 130 
IF O$<>"+" AND O$<>"-" THEN PRINT"OPERACION NO VALIDA":GOTO 130 
IF O$="+" THEN GOTO 156 
LET F=1 
IF Li>L2 THEN GOTO 137 
GOTO 139 
GOSUB 188 
GOTO 160 
IF L1¿L2 THEN GOTO 141 
GOTO 149 
LET L=L1 
LET L1=L2 
LET L2=L 
LET I$=N$(1) 
LET N$(1)=N$(2) 
LET N$(2)=1$ 
GOSUB 188 
GOTO 159 
IF N$(1)<N$(2) THEN 151 
GOTO 156 
LET I$=N$(1) 
LET N$(1)=N$(2) 
LET N3(2)=153 
GOSUB 255 
GOTO 159 
IF L1>L2 THEN GOSUB 188:GOTO 160 
IF L1<L2 THEN GOSUB 215:GOTO 160 
GOSUb 255 :GOTO 160 
AS=A$+"-" 
GOSUB 285 
PRINT N$(3) 
END 
REM 
REM Aaa lalalala lalalala lalalala lolo llaloloK: 
REM aotokk* RUTINA DE CHEQUEO DE LOS NUMEROS *XXkxkxXxx*X 
REM ARS lolojok 
REM 
FOR I=1 TO LEN(R$) 

K$=MID$(R$, 1,1) 

IF K$<"0" OR K$>"9"” THEN LET ER=1:GOTO 173 
NEXT I 
LET ER=0 
RETURN - 
REM Saad lalalala joda dial dolo 
REM Ao rutina de errores de entrada AXSASSORSIO SO lalo SIOIOIOloloSJojooJok 
REM SMS ala lalola lalalala lalalala lalalala dalla dalla lalalala 
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177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 


CLS 
PRINT "EL CARACTER ”; 
PRINT K$; , $ 
PRINT " NO ES VALIDO” 
PRINT:PRINT:PRINT:PRINT:PRINT 
PRINT “PULSE UNA TECLA PARA VOLVER A EMPEZAR” 
LET A$=INKEYS$ 
IF A$="" THEN GOTO 183 
CLS 
RETURN 
REM 
REM ASES lada lalalala ala ala aaa lalalala aaa laia lalalala ajajaja lojolojok 
REM * SUBRUTINA DE SUMA/RESTA DE STRINGS CUANDO EL N1 ES MAYOR QUE N2 * 
INE 
REM 
LET AC=0 
LET A$="" 
LET J=L1 
FOR I=L2 TO 1 STEP -1 
LET C$=MID$(N$(1),J,1) 
LET D$=MID$(N$(2),1,1) 
LET J=J-1 
IF F=1 THEN GOSUB 299 :GOTO 201 
GOSUB 240 
NEXT I 
FOR I=Li-L2 TO 1 STEP -1 
LET C$=MID$(N$(1),1,1) 
LET D$="0" 
IF F=1 THEN GOSUB 299 :GOTO 207 
GOSUB 240 
NEXT T' 
IF F<>1 THEN GOSUB 273 
RETURN 
REM 
REM ASS lO Jal ja ala lalalalajaalaajo lalalala lalalala lojoloojOjoK 
REM * FIN DE LA SUBRUTINA DE SUMA/RESTA DE STRINGS * 
REM ASS a a O olaaa alojolo jojo 
REM ] 
REM ARES OOOO ajajajaja jala lalalala jajajajaja lalalala lolo IoJoK 
REM * SUBRUTINA DE SUMA DE STRINGS CUANDO N2 ES MAYOR QUE N1 * 
REM aaa load lalalala lalalala lalalala lalalala lalalala lalalala jolololoK 
REM 
LET AC=0 
LET A$="" 
LET J=L2 
FOR I=L1 TO 1 STEP -1 
LETC$=MID$(N$(1),[,1) 
LET D$=MID$(N3(2),J,1) 


LET J=J-1 
GOSUB 240 

NEXT 1 

FOR I=L2-L1 TO 1 STEP -1 
LET C$="0" 
LET D$=MID$(N$(2),1,1) 
GOSUB 240 

NEXT 1 

GOSUB 273 

RETURN 

REM 


REM SISSI aaa lalalala lalalala lalalala alado lolo 
REM * FIN DE LA SUBRUTINA DE SUMA DE STRINGS CUANDO N2 ES MAYOR QUE N1 x* 
REM SOS lalalala lalalala lalalala lalalala ljololollojok 
REM 

REM daa OSORIO lalala jo look 

REM * SUBRUTINA DE SUMA DE DOS CARACTERES * 

REM aa Olalla olaaa lolololalollololojokok 

REM 

LET SU=VAL(C$) +VAL(D$)+AC 


245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 


IF SU >= 10 THEN LET AC=1 
IF SU < 10 THEN LET AC=0 
N$=CHR$((SU MOD 10)+ASC("0")) 


LET 


AS=AS+N$ 


RETURN 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
LET 
LET 
FOR 


ARSS aaa aida jala ldalal jalo lalalala lao lolalolo lolo jok 


* FIN DE LA SUBRUTINA DE SUMA DE DOS CARACTERES x* 
ARAS Illa lalala lalalala IOlOK oK 


ANO ASOOOOlOllElaalalOlalSlalofa lalalala lollolok 


* SUBRUTINA DE SUMA/RESTA DE STRINGS CUANDO N1 ES IGUAL A N2 x 
AMOO alla lalalala lalalala lla lalolololalolok 


AC=0 
A$="" 
I=L1i TO 1 STEP -1 


LET C$=MID$(N$(1),1,1) E 
LET D$=MID$(N$(2), 1,1) 


IF F=1 THEN GOSUB 299 :GOTO 286 


GOSUB 240 
NEXT I 
IF F<>1 THEN GOSUB 273 
RETURN 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


AMOO jala lalalala lalalala lalalala look 
* FIN DE LA SUBRUTINA DE SUMA/RESTA DE STRINGS * 
ES 


APRA oooO laaaSlalalalalalalalalalalalalalalaialajololololallajoiak 
* SUBRUTINA POR SI LA ULTIMA SUMA DA DE ACARREO 1 * 
AMARO Soo ol]aalalPlalalalalalalalala lalala jalalajolalalajalajolojoleok 


IF AC=1 THEN LET A$=A$+"1" 
RETURN 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
LET 
FOR 


AMOO O aaa lolo ajolalododok 


* FIN DE LA SUBRUTINA DE ACARREO x* 
FOO lO look 


ASAS o o jalololojojok 


* SUBRUTINA DE INTERCAMBIO DE A$ * 
ES 


N$(3)="" 
I=LEN(A$) TO 1 STEP -1 1 


LET N$(3)=N$(3)+MID$(A$, 1,1) 
NEXT 1 
RETURN 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


NOIA laa lololololololok 


* FIN DE LA SUBRUTINA DE INTERCAMBIO DE A$ * 
Alojada lalalaialalalalalalaja lalalala lalalala lala lOjoIOIOIOJOJOK 


ARANA alado ok 


* SUBRUTINA DE RESTA DE DOS CARACTERES *x 
AMO aaa lalalala lalalala lolo lok ok 


IF VAL(C$)<(VAL(D$)+AC) THEN GOTO 307 


LET 
LET 


RE=VAL(C$)-(VAL(D$)+AC) 
AC=0 


GOTO 309 ás 


LET 
LET 
LET 
LET 


RE=10+(VAL(C$)-(VAL(D$)+4C)) 
AC=1 

N$=CHR$(RE+ASC("0")) 
ASAS+NSG 


RETURN 


REM 


ES PROGRAMAS 


313 REM SOS lalala lalalala llafoRoRoK 

314 REM * FIN DE LA SUBRUTINA DE RESTA DE DOS CARACTERES * 

315 REM otto dol leelo e doll ll lb ll ll ll lll lake 

316 REM 

317 REM dalla dolo ojokok 
318 REM * SUBRUTINA DE SANGRADO DE N$(i) POR SI EMPIEZA POR CEROS * 
REM SOS SOS jololojojolok 


FOR I=1 TO LEN (N$(T)) 
323 IF MIDS(N$(T),1,1)="0" THEN LET NC=NC+1:GOTO 325 
324 GOTO 326 

325 NEXT I 

326 IF NC<>0 THEN GOTO 328 

327 GOTO 333 

328 LET R$=N$(T) 

329 LET N$(T)="" 

330 FOR I=NC+1 TO LEN(R$) 

LET N$(T)=N$(T)+MID$(R$, 1,1) 


REM ooo jala lalaiala laa jalala lalalala 
336 REM * FIN DE LA SUBRUTINA DE SANGRADO POR SI N$(i) EMPIEZA POR CEROS * 
dd 


El programa es válido para todos los or- mente y sin cambios en el IBM, AMSTRAD 
denadores con sólo modificar algunas li- y MSX. Para el SPECTRUM y COMMODORE, 
neas. El programa funcionará perfecta-  .estas modificaciones son: 


COMMODORE: 


113 PRINT CHR$(147) 

177 PRINT CHR$(147) 

183 GET AS 

185 PRINT CHR$(147) 

247 LETINS=CHRS ((SÚ-INT(SU/10))+ASC(“0")) 
N$=CHRS((SU-INT(SU/10)0+ASC(“0”) 


SPECTRUM: 


113 CLS:DIM N$(3,300) 
159 LETAS=AS+"-” 
162 STOP 

169 LET K$=R$() 

196 LET C$=NS(1,J) 
197 LET DS=N$(2,1) 
203 LET C$=NS(1,M 
223 LET C$=N5(1,1 
224 LETDS=N5(2,J) 
230 LET D$=NS$(2,1) 
247 LET N$=CHR$((SU-INT(SU/10))+CO- 
DE(“0”)) 

262 LET C$=N5(1,1) 
263 LET DS=N5$(2,1) 


id 


WNOr 


DUE 


ndo_nt 
14 


(3 nd 
IN $ 
aro Ja UN! 


q97397 
eE 
á 


242 OS 57 
PARDO 
m0 


Resultado de restar dos números muy 


largos. 


291 LET N$(3)=N$(3)+A5(1) 

309 LET NS=CHRS(RE+CODE(“0”)) 

323 IF NS(T,I)="0” THEN LET NC=NC+1:GO- 
TO 325 

331 LET NS(T)=N$CDARSO) 


2 67676777 
a ANOScOS DOPÁCEAS 


A C+,-37 


E 


cortos. 


Resultado de sumar dos números muy 


qu Definición 
de procesos 


ON mucha frecuen- 
cia los procesos a es- 
tablecer con los da- 
tos, para su presenta- 
ción en los informes 
de salida, son senci- 
llos e, incluso en oca- 
siones, obvios; en es- 


TECNICAS DE ANALISIS 


ESTRUCTURA Y PROCESOS INTERNOS 


tos casos, una breve anotación para el 
programador puede ser suficiente. Por el 
contrario, en numerosos casos es útil ha- 
cer una definición precisa y expresa de 
los procesos y cálculos a realizar. Con- 
viene entonces reunir en el dossier del 
análisis la definición de estos procesos 
para su fácil consulta y para asegurar la 
coherencia total del proceso. 
Normalmente se suele preparar un do- 
cumento preimpreso (como el que apa- 
rece en la figura 1) para una más clara y 
concisa presentación de los datos. 


DEFINICION DE PROCESO 


NODO. rronargi ca uoh does dira 
BOU nO rica iii 


Programa ... 
UTILIDAD ........ 


OPERANDOS 


Se comienza con los datos de identifi- 
cación: nombre del proceso (si se; quie- 
re dar alguno), código de letras y núme- 
ro (normalmente referido a la aplicación 
y al programa de que se trata) y referen- 
cia del programa en que se realizarán los 
cálculos; se suele incluir un comentario, 


Descripción 


a continuación, sobre el objeto general 
del proceso que se describe. El cuerpo 
del documento está formado por la defi- 
nición de los cálculos a realizar (descrip- 
ción liteal, fórmulas, etc.) con indicación, 
a la derecha y para cada cálculo descri- 
to, de los operandos que intervienen. 


En esta primera parte se suele poner el 
nombre mnemotécnico de los operan- 
dos para, en la parte inferior del docu- 
mento, describirlos con detalle, hacien- 
do referencia al resto de documentos en 
los que estos datos de entrada vienen es- 
pecificados. 


Il Tablas de decisiones lógicas 


Para aclarar las relaciones entre los da- 
tos a procesar se suele incluir un docu- 
mento adicional donde se indiquen ex- 
presamente estas relaciones. Puede ser 
una simple lista de relaciones, en el caso 
más sencillo, o bien una tabla de deci- 
sión como las ya descritas anteriormente 
en estas notas. Es importante que las re- 
laciones queden patentes de un modo 


claro: el analista debe decidir el modo 
de presentación de la información. 


Datos interrelacionados 
e históricos 


Es básico en cualquier aplicación el es- 
tablecimiento de ficheros históricos para 
recuperación de los datos en el futuro, 
bien en los procesos normales (cierre de 
ciertos períodos de funcionamiento del 
sistema), bien cuando se produce algún 
error y es necesario rehacer los ficheros 
básicos del proceso: 

Para reseñar el establecimiento y ma- 
nejo de los ficheros históricos de la apli- 
cación se suele utilizar un formulario 
como el que aparece en la figura 2. 


FICHERO DE DATOS HISTORICOS 


Nombre latir. iii 


Versiones existentes 
Identificación Contenido Vigencia 


Proceso de entrada |Proceso de salida |Versión 


En él aparece, junto al nombre e iden- 
tificación (código) del fichero, la identifi- 
cación individual de las diferentes versio- 
nes con indicación de su contenido y ex- 
presión de la vigencia o utilidad en el 
tiempo. 

En dos grupos de datos se suelen in- 
cluir: en uno de ellos, el manejo de las di- 
ferentes versiones existentes del fichero; 
en el otro, los campos que contienen. Se 
reseña para cada paso el proceso de 
entrada, el de salida (por sus códigos de 
identificación) y la versión del fichero 
que se utiliza. En el grupo de datos refe- 
rido a la descripción de campos se han 


de señalar exclusivamente aquellos que 


son de interés desde el punto de vista de 
variación, con las diferentes versiones 
históricas existentes; para cada uno de 
ellos se indica su vigencia o caducidad, 
después de los datos necesarios para 
conocer su identificación y ubicación. 


A si CO aqi: 


' Relación general de campos, 
== referencias 
y datos utilizados 


Es útil incluir una relación general de to- 
dos los códigos que aparecen en la apli- 
cación, con indicación de los datos ne- 
cesarios para su descripción. Suele ser 
una lista donde, detrás de cada código, 
aparecen en dos columnas los docu- 
mentos en los que se definen los códigos 
y los programas donde se utilizan. Es 
usual preparar dos relaciones de este 
tipo: una general, por riguroso orden al- 
fabético de todos los códigos; otra en 
que aparecen agrupados (por tipo) los 
diferentes códigos existentes: campos 
de los ficheros, nombres de los propios fi- 
cheros, nombres de datos, nombres de 
programas, etc. 


OMO hemos visto en 
los capítulos anterio- 
res, una variable tie- 
ne un nombre y uno o 
varios valores, que 
pueden disponerse 
de acuerdo con una 
estructura determina- 
da. Pero, además, estos valores pueden 
pertenecer a uno u otro tipo de datos: 
podrían ser numéricos o literales, ente- 
ros, reales en precisión normal o en pre- 
cisión doble, etc. Uno de los problemas 
principales que hay que abordar en casi 
todos los lenguajes de programación 
consiste en saber qué sucede cuando a 
una variable de un tipo determinado se 
le asigna un valor de un tipo diferente. 
Por ejemplo, cuando a una variable de 
tipo entero se le asigna un valor con de- 
cimales, o viceversa. 

Cada lenguaje de programación toma 
sus propias decisiones respecto a esto. 
En APL, par ejemplo, una variable no tie- 
ne tipo intrínseco, sino que toma automá- 
ticamente el tipo de los valores que se le 
asignan. La misma variable X podría ser, 
dependiendo de lo que se le asigne, ahora 
una matriz de números enteros, luego un 
vector de caracteres, más tarde un nú- 
mero único con decimales. Por lo tanto, 
la cuestión de la conversión de tipos no 
se presenta en este lenguaje. Veamos un 
ejemplo: 


XA+3 319 


TECNICAS 
DE PROGRAMACION 


CONVERSION DE TIPO EN LA ASIGNACION 
DE VALORES A UNA VARIABLE 


Xr 'ABCD' 
XxX 


Se observará que, en APL, para pregun- 
tar cuál es el valor de una variable basta 
con escribir su nombre. Además, también 


es posible preguntar cuál es la estructu- 


ra o forma de la variable, para lo cual 
basta con anteponer a su nombre la le- 
tra griega «rho». En el ejemplo anterior, 
primero hemos asignado a X una tabla 
de 3 filas y 3 columnas con valores igua- 
les a los números del 1 al 9. Por eso, «rho» 
X nos salió igual a 3 3 (3 filas y 3 colum- 
nas). A continuación, asignamos a X la 
cadena de caracteres 'ABCD', lo que 
pudo realizarse sin ninguna dificultad, 
con lo que «rho» X pasó a ser 4 (pues 
'ABCD' tiene cuatro elementos). Por últi- 
mo, asignamos a X el valor 2.5, un esca- 
lar, con lo que «rho» X vino a valer un vec- 
tor vacío (ésta es, por convenio, la es- 
tructura de un escalar en APL), lo que se 
indica en el programa con una línea en 
blanco. 


La cuestión es algo diferente cuando 
se intenta asignar un valor de cierto tipo 
a un solo elemento de una variable cuyo 
tipo es diferente. Por ejemplo, suponga- 
mos que tenemos una serie de datos for- 
mados por los números enteros del 1 al 8 
y que le asignamos al tercer elemento de 


la serie el valor 2.5. Pues bien: en APL 
(donde externamente no hay más tipos 
que el numérico y el literal) la serie ente- 
ra es convertida internamente, de forma 
automática, al tipo necesario para po- 
der albergar un elemento con deci- 
males: 


X+1B | 
x 


12345678 


Xt31+2.5 
XxX 
122.5545678 


Es decir, a cualquier elemento de una 
serie o tabla numérica puede asignárse- 
le siempre un valor numérico cualquiera. 
Sin embargo, no debe asignársele un va- 
lor literal, pues números y caracteres no 
pueden mezclarse. Si lo intentamos, ob- 
tendremos un mensaje de error: 


Xx+18 
pa 
1.2: 3 40516 FUE 
x(3]+*"A' 
DOMAIN ERROR 
XxI[3J1+-'A” 


Tampoco será correcto tratar de asig- 
nar varios elementos a uno solo: 


x 
12345678 

X13J+1 2 3 
RANK ERROR 
x(3141 2 3 


A 


En BASIC, las variables tienen tipo. Esto 
quiere decir que una variable definida 
como entera, no podrá contener jamás, 
en ese programa, valores con decima- 


les, y lo mismo ocurrirá con las variables * 


literales, que no podrán recibir valores 
numéricos. Sin embargo, algunas asigna- 
ciones de valores de un tipo a variables 
de tipo diferente son permitidas por los 
intérpretes y compiladores BASIC, mien- 
tras que otras no lo son. No se permite 


nunca, por ejemplo, asignar un valor lite- 
ral a una variable numérica de cualquier 
tipo y viceversa, como en los ejemplos si- 
guientes: 


10 LET X$=3 
RUN 
Type mismatch in 10 


10 LET XZ="A" 
RUN 
Type mismatch in 10 


Sin embargo, siempre es posible asig- 
nar un valor numérico de un tipo (entero, 
real de precisión normal o real de preci- 
sión doble) a una variable de un tipo dife- 
rente, aunque también numérico. Si el 
tipo de la variable es más amplio que el 
del valor asignado, la conversión se rea- 
liza automáticamente. Por ejemplo, el 
tipo real es siempre más amplio que el 
entero, pues lo comprende. El valor 3 
(entero) puede considerarse también 
como 3.000000 (real de precisión nor- 
mal) o como 3.00000000000000 (real de 
precisión doble). Asimismo, el tipo real 
de precisión doble es más amplio que el 
real de precisión simple: 2.567892 equi- 
vale a 2.56789200000000. 

Pero también puede suceder que asig- 
nemos a una variable un valor de un tipo 
más amplio que el de aquélla. ¿Qué su- 
cede entonces? Pues que el traductor de 
BASIC intenta convertir el valor asignado 
al tipo de la variable. A veces esto es po- 
sible sin pérdida de precisión. Otras, no 
lo es. Veamos algunos ejemplos: 


20 LET B!=123. 456723451678 
30 LET C!=123. 456789012345 
40 LET D%=15.000 

50 LET E%=15.234 

60 LET F%=15.55 

70 PRINT A! 

BO PRINT B! 

90 PRINT C! 

100 PRINT DZ 

110 PRINT EZ 

120 PRINT FZ 


123.4567 
123. 4567 
123.4568 


Podemos ver que este programa asig- 
na a las variables A! y D% valores que 
pertenecen a un tipo más amplio que el 
de ellas, pero que al convertirse a éste 
resultan ser totalmente equivalentes a los 
que tenían. Sin embargo, esto no es siem- 
pre posible: los valores asignados a las 
variables B!, C!, E% y F% no pueden con- 
vertirse al tipo de éstas sin pérdida de 
precisión. En este caso la conversión se 
realiza de todos modos, sustituyendo el 
valor asignado por aquél que pertenez- 
ca al tipo de la variable, que sea lo más 
próximo posible al que se nos ha dado. 
Puede verse que a veces esto significa 
redondear hacia arriba, mientras que 
otras obliga a redondear hacia abajo. 
Por convenio, 2.5 se redondeará hacia 3, 
mientras que 2.499999 se redondea ha- 
cia 2. 

La conversión de tipo se realizará igual- 
mente, si es necesario, cuando asigne- 
mos un valor a un elemento de una serie 
o tabla de datos: 


10 DIM XZ(10) 

20 FOR I=1 TO 10 

30 LET X%(1)=1: NEXT 1 

40 LET X%(3)=5.5 

50 FOR I=1 TO 10 

60 PRINT XX(1)32 NEXT 1 
IN 


A veces, sin embargo, la conversión de 
tipo no puede realizarse, como cuando 
intentamos asignar a una variable ente- 
ra un número entero que rebasa la pre- 
cisión posible en la representación inter- 
na de los enteros (véase el capítulo 6) y, 
por tanto, tiene que representarse en 
uno de los tipos reales. En tal caso, ob- 
tendremos un mensaje de error. Recuer- 
dese que, en la mayor parte de los intér- 
pretes y compiladores BASIC, los números 
enteros deben estar comprendidos entre 
-32768 y 32767. Veamos un ejemplo: 


10 A%=123456 


20 PRINT AZ 
RUN 
Dverflow in 10 


TECNICAS DE PROGRAMACION 


Hemos intentado asignar a una varia- 
ble entera (A%) un valor (123456) que no 


“está comprendido entre -32768 y 32767 


y el intérprete lo ha rechazado. 

En PASCAL, las normas de conversión 
de tipos son muy semejantes a las de BA- 
SIC, aunque con algunas diferencias. En 
primer lugar, como en BASIC, no es posi- 
ble asignar un valor de tipo literal (CHAR 
O STRING) a una variable de tipo numéri- 
CO (INTEGER o REAL), ni tampoco al revés. 
En cambio, sí suele ser válido guardar un 
dato CHAR en una variable STRING, como 
en el programa siguiente: 


program EJEMPLO; 


Lo contrario no es posible, como es na- 
tural, a menos que el dato STRING que 
asignamos a una variable de tipo CHAR 
tenga un solo carácter. 

De igual manera, la conversión del tipo 
entero al real siempre es posible, pero lo 
contrario no siempre lo es. Además, si en 
PASCAL queremos asignar un dato con 
decimales (como 2.6) a una variable de 
tipo entero, debemos especificar como 
deseamos que se haga la conversión: 
truncando el valor (con lo que se conver- 
tiía en 2) o redondeándolo (con lo que 
iña a parar a 3). Para ello existen las fun- 
ciones TRUNC (truncar) y ROUND (redon- 
dear). Veamos un ejemplo: 


program EJEMPLO; 
var 
a, b, c, d: integer; 
begin 
az=TRUNC(2.3); 
b:=ROUND (2.3); 
cs=TRUNC (2.6); 
d: =ROUND (2. 6); 
Wwritelo Cay? “¿by? 21577 "¿008 
end. 


cuya ejecución da el siguiente resultado: 


Hemos visto que el problema de la con- 
versión no se presenta en los programas 
escritos en APL, en los que, independien- 
temente de lo que haga el intérprete con 
los datos, desde el punto de vista del 
programador no existen más tipos que 
los números y los caracteres. De igual 
manera, en la mayor parte de los progra- 
mas BASIC se utilizan sólo variables rea- 
les en precisión normal, suficiente para 
muchas aplicaciones, por lo que tampo- 
co es preciso tener en cuenta el proble- 
ma de la conversión. Este surge sólo 
cuando se desea aquilatar la ocupación 
de espacio, la velocidad de cálculo o la 
precisión aritmética de los programas y 


se utilizan también variables enteras o en 
doble precisión. 

En PASCAL, sin embargo, el problema 
de la conversión de tipos puede surgir 
con más frecuencia, puesto que la nece- 
sidad de declarar todas las variables lle- 
va al programador a utilizar distintos tipos 
de datos en sus programas. No obstante, 
en muchos programas no llegará siquie- 
ra a presentarse, pues las variables ente- 
ras suelen utilizarse como contadores, a 
los que siempre se asigna valores estric- 
tamente enteros, mientras que las varia- 
bles reales tienden a mezclarse en las 
operaciones con otras del mismo tipo. 

A pesar de todo, es preciso tener pre- 
sente la posibilidad de que tengan lugar 
conversiones automáticas de tipos, pues 
esto puede aclarar algunos efectos que, 
de no tenerlas en cuenta, resultarían casi 
inexplicables para el programador prin- 
cipiante. 


[m Personal 


editor 


L Personal Editor es un 
programa diseñado 
para llevar a cabo la 
edición de textos. Su 
principal característi- 
ca es la sencillez de 
manejo que permite 
— : un rápido aprendiza- 
je que "lo convierte muy pronto en una 
aplicación productiva. 

Al arrancar el programa se visualiza 
una pantalla de las más simples que pue- 
de uno encontrarse. Una línea en la par- 
te inferior permite introducir comandos. 
En la parte superior de la pantalla se ob- 
servan las marcas de principio y final del 
fichero. Por supuesto, nada más arrancar 
estas líneas están juntas y sin ningún con- 
tenido entre ellas. 


== Top pE file =—= 
Esta es la zona en la que 


se teclea el texto 


== Bottom of file == 


[ZONA DE COMANDOS | 


4 1 Insert 


¡A Fig. 1. Pantalla del Personal Editor. 


APLICACIONES 


TRATAMIENTOS DE TEXTO: OTROS PROGRAMAS 


La tecla ESC permite el salto de la línea 
de comandos a la función de introduc- 
ción de texto. En esta segunda función, 
el Personal Editor funciona como si se tra- 
tara de una hoja de papel; uno va escri- 
biendo y debe cuidar dónde quedan las 
palabras para que al imprimir (si fuera 
ese el caso) cuadren bien. 

Los comandos principales realizan las 
funciones de llamada a un fichero (e 
nombre de fichero), archivo de un fiche- 
ro en uso (file nombre de fichero), salida 
del programa (quit), etc. Además, las te- 
clas de función incorporan estos coman- 
dos, lo que facilita el trabajo. Una intere- 
sante posibilidad es incorporar al fichero 
de definición del teclado algunas asig- 
naciones de cadenas de caracteres a 
teclas concretas. Esto en algunas aplica- 
ciones facilitará indudablemente el tra- 
bajo. 

El Personal Editor permite la edición de 
varios textos simultáneamente. Esta posi- 
bilidad, dota al programa de gran flexi- 
bilidad porque permite componer a par- 
tir de un texto ya elaborado otro de simi- 
lares características o contenido. El fi- 
chero de ayuda utiliza esta opción. 


Al pulsar F1, el Personal Editor llama al 
fichero de ayuda (PE.HLP) y lo edita. Con 
esta visualización en pantalla se dispone 
de una ayuda bastante completa de las 
principales funciones del cursor, las te- 
clas de función, así como las teclas que 
realizan las funciones básicas del progra- 
ma (Alt + TECLA). 

En la figura 2 se observa una de las pan- 
tallas del menú de ayuda. La descripción 
de cada función está bien realizada en 
el manual del programa. Sin embargo, 
destacaremos la posibilidad de partir lí- 
neas (Alt-S) y unirlas (Alt-J), que permite 
recolocar fácilmente partes de texto y 
agruparlos a gusto de la persona que 
edita. Es posible trazar cuadrados y relle- 
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| Primera pantalla del menú de ayuda que se en- 
Y  cuentra en el fichero Pe.hlp. 


nar bloques con caracteres. Las funcio- 
nes de marca, copiado, movimiento y 
borrado de bloques se efectúan con 
gran sencillez. ' 


Por otra parte, el Personal Editor requie- 
re que se sitúe un carácter de retorno de 
carro y alimentación al final de cada lí- 
nea. En ello se asemeja a una máquina 
de escribir que al llegar al final de una lí- 
nea necesita una alimentación “manual” 
de línea. Es posible no incluir este salto 
de línea, pero entonces se requiere ha- 
cer uso de las teclas de movimiento de 
cursor. Cuando no se va a emplear un 
texto escrito en Personal Editor en otro 
procesador de texto, esto no importa. Sin 
embargo, si se va a utilizar en otro pro- 
grama que trate textos, la aparición de 
esos caracteres de salto de línea puede 
dificultar enormemente nuestra labor. El 
programa podría no llegar a reformatear 
todo el texo, ya que al encontrar un sal- 
to de línea supondría fin de párrafo. Si 
esto ocurre en todas la líneas, el texto 
quedaría como estuviera. Este aspecto 
debe cuidarse al escribir con el Personal 
Editor. 


Por último, vamos a reseñar un aspec- 


to de gran interés para los posibles usua-. 


rios del Personal Editor. A la par de ser un 
programa enormemente fácil de manejar, 
aunque con un menor número de funcio- 
nes que otros, sus requerimientos de me- 
moria son pequeños. Con sólo 128 Kbytes 
de memoria ya se puede trabajar con 
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textos de iamaño aceptablemente gran- 
de 


IO Word Perfect 


El Word Perfect es uno de los programas 
de tratamiento de texto más completos y 
potentes del mercado. La forma de guiar- 
se a través del programa no es median- 
te menús, como en otros procesadores. 
En el Word Perfect se dispone de una re- 
ficula para situar en torno a las teclas de 
función. En ella pueden verse las posibili- 
dades que se obtienen al pulsar cada te- 
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l A Retfícula de las teclas de función del Word 
fl Perfect. 


APLICACIONES 


cla directamente o combinada con 
SHIFT, ALT o CTRL, con lo que se tienen 40 
funciones visibles en todo momento. 
Además, una vez seleccionada una de 
estas funciones, se visualizan en pantalla 
unos menús de guía para la función en 
cuestión. 

El Word Perfect se completa con unos 
programas adicionales, de entre los que 
destaca el potente diccionario que ¡aci- 
lita enormemente las correcciones orto- 
gráficas. 

La flexibilidad y la potencia son posi- 
blemente las dos principales caracteris- 
ticas del Word Perfect. Respecto a la 
flexibilidad, podemos citar las múltiples 
opciones seleccionables para dirigir la 
impresión de textos o documentos, las 
amplias posibilidades para definición de 
formatos de pantalla, macros para textos 
repetitivos y todo un conjunto encamina- 
do a permitir al usuario configurar un pro- 
cesador a la medida de sus necesida- 
des. 

La potencia del Word Perfect se refleja 
principalmente en la forma de tratar los 
textos. En cuanto a escritura y visualiza- 
ción en pantalla, destaca el hecho de 
que las partes de un texto que van en ne- 
grilla (y que en otros procesadores se en- 
marcan entre dos comandos) aparecen 
resaltadas en pantalla, con lo que se tie- 
ne el texto tal como se verá al imprimir. 
Igual ocurre para las partes de los textos 
subrayadas. Otra importante función del 
Word Perfect que potencia su capacidad 
es la posibilidad de generar un “SPOOL” 
de impresión, es decir, ir acumulando 
toda una serie de ficheros a imprimir y 
desentenderse de ellos. Así se puede se- 
guir tabajando y cada vez que se finali- 
ce la impresión de un fichero, será el pro- 
pio Word Perfect el que tomará el si- 


guiente de los acumulados para impri- 
mir. 

El Word Perfect permite también tener 
varias pantallas con varios textos de for- 
ma simultánea, lo que capacita al usua- 
rio para combinar documentos distintos 
con gran flexibilidad. 
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LE Pantalla del Word Perfec!. 


La pantalla del Word Perfect es tam- 
bién muy sencilla. No aparecen menús, 
salvo que vaya a realizarse una función 
solicitada con las teclas de función. Con 
ello, casi exclusivamente con la retícula 
de ayuda podrían darse los primeros pa- 
sos en el manejo del Word Perfect. Sin 
embargo, para aprovechar este progra- 
ma en toda su potencia, es necesario 
leer detenidamente el manual. 

Por último, reseñar la reciente apari- 
ción de la versión 4 del Word Perfect Il 
con nuevas posibilidades. 


PASCAL 


N alguna ocasión he- 
mos mencionado 
que, además de los 
tipos de datos exis- 
tentes en PASCAL, es 
posible crear nues- 
tros propios tipos de 


que lo identifica, INTEGER, los creados por 
nosotros normalmente tendrán su propio 
nombre, que puede ser cualquier identi- 
ficador válido. No obstante, para mayor 
claridad y siguiendo una norma amplia- 
mente extendida entre los programado- 
res de PASCAL, diferenciaremos los nom- 
bres de tipos de los demás de alguna 
manera; en los ejemplos que hagamos, 
acabarán siempre con -t; si nuestro orde- 
nador careciera del símbolo de subraya- 
do, o nuestro compilador no lo admitie- 
se, bastará con eliminarlo. 


La definición de tipos se hace en la 
zona de descripción de datos y antes de 
la definición de variables. Va precedi- 
da de la palabra reservada TYPE, tras la 
cual se escriben las diferentes descrip- 
ciones de datos separadas entre sí por 
punto y coma. Por tanto, la estructura de 
un programa PASCAL, con lo que sabe- 
mos hasta ahora, sería: 


program NombreDelPrograma; 


Descripción de datos: 


const ... 


TIPOS DE DATOS A MEDIDA 


begi 


Instrucciones del programa 


end. 


Procedimientos y funciones. 


Por supuesto, y siguiendo la analogía 
entre programas y procedimientos, éstos 
pueden tener a su vez tipos locales para 
su uso exclusivo; como es lógico, irán de- 
finidos entre las posibles constantes y va- 
riables locales. 

Como los procedimientos READ, 
READLN, WRITE y WRITELN ya están progra- 
mados de antemano, no sirven para ser 
utilizados con los tipos creados por noso- 
tros. 

Vamos a ver algunos de los posibles 
nuevos tipos: 


7] Tipos definidos por 
enumeración 


A menudo se trabaja con datos que no 
son números ni letras. Por ejemplo, po- 
dria ser necesario tener en cuenta el día 
de la semana para que un programa hi- 
ciera o no determinadas cosas. 


PASCAL 


Para guardar en una variable el día en 
cuestión, una solución podría ser asociar 
a cada día de la semana un número: lu- 
nes el 1, martes el 2, etc. Entonces po- 
dríamos escribir cosas como: 


if Dia = 7 then 
write ('El día es domingo.'); 


donde Dia sería una variable de tipo IN- 
TEGER. 


Esto nos obligaría a recordar en cada 
momento qué números hemos asociado 
a los posibles valores de nuestros datos. 

En PASCAL, sin embargo, es posible 
crear un nuevo tipo de datos para que se 
ajusten a nuestras necesidades. Podría- 
mos tener así un tipo (llamémosle DIADE- 


const Maximo = 10; 


type 
DiaDeLaSemana_t = 


Jueves, 


var 
Hoy, Dia 
Color, 

ColorPintura : 


LASEMANA), cuyos posibles valores serían 


LUNES, MARTES, MIERCOLES..., al igual que 
existe el tipo INTEGER, cuyos posibles va- 
lores son... -2, —-1, 0, 1,..., o el BOOLEAN 
con TRUE y FALSE. 

Definiríamos entonces el tipo enume- 
rando sus posibles valores, que estarán 
representados por los identificadores vá- 
lidos que se deseen. Para ello se escribe 
en primer lugar el nombre del tipo, que 
irá seguido de un signo igual y de los 
identificadores de los posibles valores, 
separados entre sí por comas y encerra- 
dos entre paréntesis. Los tipos así crea- 


program TipoEnumerado; 


(Lunes, Martes, Miercoles, 


Viernes, 


ColorPrimario_t = (Rojo, Verde, Azul); 


: DiaDeLaSemana_t; 


ColorPrimario_t; 
: integer; 


dos, junto con los tipos INTEGER, CHAR y 


BOOLEAN, se llaman TIPOS ESCALARES. Por 


ejemplo: 


(No se extrañe el lector si encuentra ca- 
sualmente ejemplos parecidos de tipos 
definidos por enumeración en más de un 
libro sobre PASCAL.) Con esos tipos así 
definidos se podría escribir: 


Hoy: =Lunes, 
If Dia = Sabado ) and 
(C lol <> Rojo) then ... ; 


Hay dos restricciones a la hora de crear 
estos tipos: 


— El número de posibles valores está 
limitado, dependiendo este limite de 


Sabado, Domingo); 


cada compilador; normalmente es 256. 

— Los posibles valores deben ser ex- 
clusivos del tipo que hayamos definido. 
Así, no sería posible crear el tipo VOCA- 
LES formado por los valores 'A', “E”, 'I', *O”, 
“Y”, pues éstos lo son del tipo CHAR. 


Como se puede ver, el tipo BOOLEAN 
seria definible, caso de que no lo estu- 
viera ya, de la siguiente manera: 


ivpe Boolean=(False, True); 


Al igual que los tipos CHAR y BOOLEAN, 
los tipos definidos por enumeración tie- 


nen asociados números ordinales y se 
encuentran ordenados según éstos. Estos 
números se asignan según el orden en que 
se hayan escrito los posibles valores al 
definir el tipo, empezando por cero. 

Por ello, es posible utilizar las funciones 
ORD, PRED y SUCC, que dan respectiva- 
mente, el número de orden, el valor an- 
terior y el posterior a uno dado: 


ord (Hoy) valdría 1 si Hoy 
valiera Martes 

pred (Sabado) valdría Viernes 

suce (Color) valdría Verde si 
Color valiera Rojo. 


y comparar valores: 


Lunes < Martes 


procedure WriteDia (D: 


begin 


end; 


var Letra: 
begin 


char; 


repeat 
readln (Letra); 


until Ok; 


else C:= Azul 


valdría TRUE, pues ord (lunes) es menor 
que ord (Martes). (Recordemos, una vez 
más, que en PASCAL nunca se pueden 
mezclar tipos. ) 

Por esto mismo, también es posible usar 
variables de tipo definido por enumera- 
ción para control de las estructuras FOR: 


for Dia:= Lunes to Viernes do ... 
for Color:= Azul downto Rojo do ... 


DiaDeLaSemana_t); 
(k Presenta en pantalla el valor de D x) 


if D= Lunes then write (*Lunes”) 
else if D = Martes then write (*"Martes”) 
else if D = Miercoles then write (*Miércoles”) 
else if D = Jueves then write (*Jueves”) 
else if D = Viernes then write (*Viernes”) 
else if D = Sabado then write (*Sábado”) 
else write (*Domingo”) 


procedure Leelolor (var C:z ColorPrimario_t); 
(k Lee de teclado un color £) 


Ok: boolean; 


(* Pedir letra del color: *x) 


write (*Color? (R,V,A) ”?); 


Ok:3= (Letra="R”) or (Letra="V”*) or (Letra="A”); 
if not Ok then writeln ("Letra mo válida.”) 


if Letra = *R” then C:= 
else if Letra = *”V” then C:= Verde 


Rojo 


Como los procedimientos que ya cono- 
cemos para presentar cosas por panta- 
lla no nos sirven, tendremos que escribir- 
los cuando sea necesario. Los parúme- 
tros que se pasan a un procedimiento 
pueden ser del tipo que se quiera, inclu- 
yendo, por supuesto, a los creados por 
nosotros: 


En el procedimiento de lectura, se ha 
pasado el parámetro por nombre, pues 
lo que queremos es alterar el valor de 
una variable según la letra tecleada. Con 
esos procedimientos podríamos escribir 
cosas como: 


WriteDia (succ(Hoy)); 
LeeColor (ColorPintura); 


O Descripción de un tipo sobre 
/ la marcha 


Cuando sólo se va a hacer referencia 
a un tipo en un punto de un programa, es 
posible definirlo al mismo tiempo que se 
definen las variables de ese tipo, sin ne- 
cesidad de darle un nombre declarán- 
dolo previamente. Para ello basta con 
poner, al definir la variable, la descrip- 
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ción de tipo que se habría utilizado si se 
hubiera declarado de la forma habitual: 


var 
NotasJaime, 

NotasJorge : (Suspenso, 
ClaseDePelo : (Moreno, 


e 


Normalmente, no es muy aconsejable 
proceder así por motivos de claridad; 
por otra parte, si en un procedimiento hu- 
biera que utilizar parámetros de alguno 
de esos tipos, no tendríamos más reme- 
dio que darles previamente un nombre, 
pues la definición sobre la marcha no 
está permitida en las listas de paráme- 
tros. 

Aunque el ejemplo consta únicamente 
de tipos definidos por enumeración, se 
puede definir sobre la marcha el tipo que 
se quiera. 


' Tipos subrango 


Ya se vio en su momento cómo se po- 
día definir una variable de tipo subrango 
de los tipos CHAR e INTEGER. 


program TipoSubRango; 


type 


Minuscula_t 


var 


Inicial 


.ar..? 


Aprobado, 
Castano, 
(kx por desgracia, la ñ no suele ser válida *) 


Di aDeLaSemana_t = 

(Lunes, Martes, Miercoles, 

Jueves, Viernes, Sabado, Domingo); 
DiaLaborable_t = Lunes,.Viernes; 
Mayuscula_t = *A*..*2*; 


z* 


DiaDeCurre: Dialaborable_t; 
3 Mayuscula_t; 


- Con los otros tipos escalares es posible 
también definir subrangos. Por ejemplo, 


Notable, 
Pelirrojo, 


Sobresaliente); 
Rubio, Platino); 


estando el tipo DiaDeLaSemana.t ya de- 
clarado podriamos tener: 


var 
DiaDeCurre: Lunes..Viernes; 


con lo que indicamos al compilador que 
la variable DiaDeCurre sólo puede tener 
valores comprendidos entre Lunes y Vier- 
nes. El subrango se describe, por tanto, 
poniendo los valores extremos separa- 
dos por un par de puntos, de manera que 
el primero sea menor que el segundo. 

Aunque en el ejemplo hemos escrito el 
subrango al definir la 'variable, normal- 
mente será más conveniente crear pri- 
mero el tipo subrango y luego utilizarlo al 
describir las variables: 


Los tipos subrangos en el fondo siguen 
siendo del tipo que les da origen y por 


. 
, 


ello SI se pueden mezclar entre si y con 
el tipo escalar asociado si este es comun 
a ellos. Por ejemplo, si tenemos: 


var 
A: 1.10; 
B: 0..30; 
C: 10..30; 


el tipo original asociado a A, B y C es IN- 
TEGER y por ello las instrucciones 


A:=B; 
wrile (B4+C); 
C:=B; 


son correctas, aunque al correr el pro- 
grama se podría producir un error al eje- 


cutar, por ejemplo, A:=B si B tuviera un va- 
lor no aceptable para A. 


Además de servir para controlar que 
no se almacenan valores erróneos en las 
variables, a veces se obtiene un ahorro 
de memoria, pues el tamaño de la por- 
ción necesaria para guardar datos con 
valores restringidos puede ser menor, 


NOTA: La mayoría de los compiladores 
tienen la posibilidad de activar o no la 
propiedad de controlar si los valores que 
se guardan en variables del tipo subran- 
go están dentro de los límites permitidos; 
para salir de dudas, es menester consul- 
tar el manual del compilador. '- 


A diferencia entre va- 
riables y constantes, 
cemo las variables 
deben declararse an- 
tes de utilizarse en un 
programa escrito en 
C, los diferentes tipos 
de datos reconoci- 
dos en C, los operadores y las expresio- 
nes como combinación de variables y 
constantes. 


'D Variables y constantes 


Tanto las variables como las constantes 
en un lenguaje de programación, son da- 
tos que el programa utiliza para realizar 
una serie de tratamientos con ellos. 

Ciertos datos se preseleccionan antes 
de la ejecución de un programa, mante- 
niendo sus valores inalterables durante la 
misma, por lo que a dichos datos se les 
conoce como constantes. 

Por el contrario, existen otros datos que 
pueden variar a lo largo de la ejecución 
del programa, llamándose a éstos varía- 
bles. 

El nombre de una variable tiene ciertas 
restricciones. Veamos esto. Cualquier va- 
riable está formada por una serie de le- 
tras y dígitos en secuencia, pero debe- 
mos tener muy claro siempre que el pri- 
mer carácter de comienzo de una varia- 
ble debe ser una letra. Nombres de va- 
riables válidos pueden ser: 


area 
h54 
juan. ana 


OTROS LENGUAJES 


LENGUAJE C: TIPO DE DATOS, 
OPERADORES Y EXPRESIONES 


Por el contrario, no podrán utilizarse 
para variables nombres tales como: 


5luyo 
juan.ana 


Las letras mayúsculas y minúsculas son 
diferentes en el lenguaje de programa- 
ción C. Se utilizan tradicionalmente las 
minúsculas para los nombres de varia- 
bles y las mayúsculas para nombres de 
constantes. ! 

Solamente los ocho primeros caracte- 
res de un nombre de variable son signifi- 
cativos, aunque pueden utilizarse en nú- 
mero superior. 

Finalmente diremos que en C, como en 
todos los lenguajes de programación, 
existen palabras reservadas que no po- 
drán utilizarse como nombres de varia- 
bles. Tal es el caso de las siguientes pa- 
labras reservadas: 


auto break case char continue 
default do double else entry 
enum extern float for goto 
if in long registerreturn 
short sizeof static struct switch 


typedef union unsigneduntil 
while 


pu Datos: sus tipos 


Dentro del lenguaje de programación 
C los tipos de datos se clasifican en: 


— char 
— int 

— float 
— double 


void 


OPERADORES 


f 
lA Operadores. 


El tipo char almacena en un byte (ocho 
bits) un carácter que corresponde al jue- 
go de caracteres empleado en su insta- 
lación (ASCII o EBCDIC). 

El tipo ¡nf son enteros (sin parte deci- 
mal) que pueden tener signo o no. 

Para el tipo ¡nf existen una serie de ca- 
lificadores tales como short, long y unsig- 
ned. 

El tipo floaf representa un número en 
punto flotante y simple precisión. Este 
tipo de datos es utilizado en programas 
que poseen un gran número de cálculos 
matemáticos. 

El tipo double (doble precisión) utiliza 
un número doble de bits, es decir, 64. In- 
corporando los 32 bits adicionales a la 
mantisa, se consigue un mayor número 
de cifras significativas, alcanzándose 
una mayor precisión. 


1 Declaración 
de variables 


Todas las variables en C, al igual que 
en Pascal, deben ser declaradas antes 
de su utilización. En todo programa C su-- 
ministraremos una lista de variables que 
se utilizarán a lo largo del programa, in- 
dicando a qué tipo pertenecen. 


MANIPULACION 
DE BITS 
ASIGNACION 
INCREMENTO Y 
DECREMENTO 
CONDICIONALES 


Veamos un ejemplo de declaración de 
variables: 
inta,b,c; 
long ini z; 
char letra, silaba: 


Las variables de un mismo tipo pueden 
reunirse en una misma sentencia o utili- 
zar varias. 

En la declaración de variables pode- 
mos inicializar éstas a un determinado 
valor, como, por ejemplo: 


intp = 75; 
char palabra ='p”'; 


El ejemplo anterior definiría una varia- 
ble entera con un valor inicial de 75 y 
una variable del tipo carácter con valor 
inicial p. 


IO Operadores 


En el lenguaje C existen los siguientes 
tipos de operadores: 


— Aritméticos. 

Relacionales. 

Lógicos. 

Manipulación de bits. 
Asignación, 

Incremento y decremento. 
Condicionales. 


so OTROS LENGUAJES 
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¡A Tipos de datos. 


Veamos cada uno de ellos. 
— Operadores aritméticos 


Los operadores aritméticos binarios 
son: + (suma), - (resta), * (multiplicación), 
/ (división) y el operador módulo %. 

Si realizamos una división entera de 
dos números, se truncará cualquier par- 
te fraccionaria. 


— Operadores relacionales 


Los operadores de relación en C son : 
> (mayor que), < (menor que), >= (ma- 
yor o igual) y <= (menor o igual). 

Los operadores de igualdad son: == 
(igual) y != (distinto de). 


— Operadores lógicos 


Las conectivas lógicas son : 48 (and) y 
| (on). 


— Operadores lógicos para manejo 
de bits 


Los operadores para la manipulación 
de bits no son aplicables a operandos 
del tipo floai y double. Entre los operado- 
res de manipulación tenemos: (and ló- 
gico), | (or lógico), (or exclusivo lógi- 
co), > (desplazamiento a la derecha), < 
(desplazamiento a la izquierda) y — (com- 
plemento a uno o negación de bits). 

Los operadores lógicos de bits trabajan 


SHORT 
LONG 
UNSIGNED 


DOUBLE 


bit a bit y pueden tratar cada bit inde- 
pendientemente. 


— Operadores de asignación 
El operador de asignación más ele- 


mental es el =, que no debe confundirse 
con el operador == de comprobación de 
igualdad, 


— Operadores de incremento y de- 
cremento 


Para incrementar y decrementar en 
una unidad a un operando el lenguaje 
de programación C, dispone de dos ope- 
radores : ++ (le suma 1 a su operando) y 
-(le resta 1 a su operando). Estos opera- 
dores pueden ir colocados antes de la 
variable o después de la variable. De- 
pendiendo de la colocación los efectos 
serán diferentes. 


— Operador condicional 


En C se puede abreviar la sentencia jf- 
else tan conocida en otros lenguajes de 
programación, a través del operador 
condicional ?: 

La forma general de una expresión 
condicional es: 


expresion] ? expresión2 : expresión3. 


Si expresión1 es cierta, la expresión 
condicional total toma el valor de la ex- 
presión2,; si, por el contrario, expresión 1 
es falsa, toma el valor de la expresión3. 


DI 
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